unit unt_versao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Menus, ComCtrls, Data.Win.ADODB;

type
  TVersao = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    PopupMenu1: TPopupMenu;
    Alterarcomando1: TMenuItem;
    ProgressBar1: TProgressBar;
    Comando: TADOQuery;
    versao: TADOQuery;
    DSVERSAO: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Alterarcomando1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Versao: TVersao;
  I: integer;

implementation

uses dm, principal;

{$R *.dfm}

procedure TVersao.Button1Click(Sender: TObject);
begin
progressbar1.Max :=memo1.Lines.Count ;

for i:= 0 to memo1.Lines.Count-1 do
begin
try
comando.Close;
comando.SQL.Clear;
comando.SQL.Add(memo1.Lines.Strings[i]);
comando.ExecSQL;
except

end;
end;




versao.Active:= true;
versao.Edit;
versao.FieldByName('versao').Value:= edit2.Text;
versao.Post;




showmessage('Sistema atualizado com Sucesso.');

CLOSE;
frmprincipal.Show;


end;

procedure TVersao.FormShow(Sender: TObject);
begin

if edit2.Text = '1.01' then
begin
memo1.Lines.Clear;
memo1.Lines.Add('alter table venda alter column pedido varchar(9)');
memo1.Lines.Add('alter table detalhevenda alter column pedido varchar(9)');
Memo1.Lines.Add('alter table parcelas alter column pedido varchar(9)');
memo1.Lines.Add('alter table cliente drop column pai');
memo1.Lines.Add('alter table cliente drop column mae');
memo1.Lines.Add('alter table cliente add pai varchar(50)');
memo1.Lines.Add('alter table cliente add mae varchar(50)');
memo1.Lines.Add('alter table ativador add data varchar(10)');
memo1.Lines.Add('alter table ativador add dia int');
end;

if edit2.Text = '1.02' then
begin
memo1.Lines.Clear;
memo1.Lines.Add('alter table detalhevenda add nome varchar(50)');
memo1.Lines.Add('update detalhevenda set detalhevenda.nome = cliente.nome from detalhevenda inner join cliente on cliente.CPF = detalhevenda.cpf where detalhevenda.cpf <> '+quotedstr(''));
end;


if edit2.Text = '1.03' then
begin
memo1.Lines.Clear;
memo1.Lines.Add('update produto set ativo = '+quotedstr('Inativo') );
end;



end;

procedure TVersao.Alterarcomando1Click(Sender: TObject);
begin
memo1.Enabled:= true;
end;

end.
